'For Grape
Sub ShowCriteria()
    Dim r As Range, fullCriteria As Collection, c2 As Collection
    Dim msg As String
    Set fullCriteria = New Collection '所有filter选项
    Set selectedCriteria = New Collection '已选filter选项
    Set visibleCriteria = New Collection '可见的filter结果

    Dim LastRow As Integer

    With ActiveSheet
        LastRow = .Range("F" & ActiveSheet.Rows.Count).End(xlUp).Row
    End With

    On Error Resume Next
    For Each r In Range("F2:F" & LastRow)
        v = r.Value
        fullCriteria.Add v, CStr(v)
        If r.EntireRow.Hidden = False Then
            selectedCriteria.Add v, CStr(v)
        End If
    Next
    On Error GoTo 0

    On Error Resume Next
    For Each r In Range("F2:F" & LastRow).SpecialCells(xlCellTypeVisible)
        v = r.Value
        visibleCriteria.Add v, (v)
    Next
    On Error GoTo 0
End Sub


Function FilterCriteria(Rng As Range) As String
    Application.Volatile
    Dim Filter As String
    Filter = ""

    On Error GoTo Finish

    With Rng.Parent.AutoFilter
        If Intersect(Rng, .Range) Is Nothing Then GoTo Finish

        With .Filters(Rng.Column - .Range.Column + 1)

            If Not .On Then GoTo Finish

            Filter = .Criteria1

            Select Case .Operator
                Case xlAnd
                    Filter = Filter & " AND " & .Criteria2

                Case xlOr
                    Filter = Filter & " OR " & .Criteria2

            End Select

        End With

    End With

Finish:
FilterCriteria = Filter
End Function